Missing function - olePut with AutoArgs?

I am using OLE Automation to get and set data within another application. One of the properties of the OleAutoObj that I am dealing with is effectively an array of data. I can 'get' data from this array by using oleGet with AutoArgs, however I am unable to 'set' the same piece of data, as there is no olePut function for which I can supply AutoArgs as an argument. The section of code for the 'get' is as follows:
 

OleAutoObj nodeAutoObj
    string nodeConf = ""
 
    OleAutoArgs autoArgs = create
    clear autoArgs
 
    put(autoArgs, "confidence")
 
    string err = oleGet(nodeAutoObj, "StatusField", autoArgs, nodeConf)
 
    if(!null err)
    {
        errorBox "ERROR getting nodeConf: " err
    }
 
    if(!null nodeConf)
    {
        infoBox "nodeConf: " nodeConf
    }

In order to 'set' this piece of data, the code I effectively need would be something like the following:

clear autoArgs
 
    put(autoArgs, "confidence")
    err = olePut(nodeAutoObj, "StatusField", autoArgs, "Low")
 
    if(!null err)
    {
        errorBox "ERROR setting nodeConf: " err
    }

But unfortunately there is no olePut function, that takes OleAutoArgs as an argument.

Any ideas of how I can overcome this appreciated. Note: 'StatusField' is a property of an OleAutoObj, but not an OleAutoObj in itself, and therefore cannot be got, modified, and put back.

Re: Missing function - olePut with AutoArgs?
Mathias Mamsch - Tue May 10 09:30:58 EDT 2011

Hmm what you are describing sound not like a normal "array" ... DXL does not support COM arrays, but that does not seem to be your problem... COM objects like a VB collection have "default" methods. This means when you call:

MyCollection(3) = 4
x = MyCollection(6)

what COM is doing for you is:

MyCollection.Items(3).Value = 4
x = MyCollection.Items(6).Value

Therefore it might be possible that the property you are calling is just a default property, but there is another Method, that will yield an OleAutoObj for the item for which you want to set the property.

clear autoArgs 
OleAutoObj objField
put(autoArgs, "StatusField")
oleMethod(nodeAutoObj, "Fields", autoArgs, objField)
olePut(objField, "confidence", "Low")

But its hard to tell, without knowing the concreate OLE object. What you always can do, is inspect the OLE interface using some tool see here for example to find out, if there is such a property.

Hope this helps, regards, Mathias

Mathias Mamsch, IT-QBase GmbH, Consultant for Requirement Engineering and D00RS

Re: Missing function - olePut with AutoArgs?
SystemAdmin - Tue May 10 10:20:01 EDT 2011

MyCollection(3) = 4
x = MyCollection(6)

MyCollection.Items(3).Value = 4
x = MyCollection.Items(6).Value

clear autoArgs 
OleAutoObj objField
put(autoArgs, "StatusField")
oleMethod(nodeAutoObj, "Fields", autoArgs, objField)
olePut(objField, "confidence", "Low")

Re: Missing function - olePut with AutoArgs?
Mathias Mamsch - Tue May 10 13:39:48 EDT 2011

Re: Missing function - olePut with AutoArgs?
SystemAdmin - Thu May 12 11:19:22 EDT 2011